unit ufrmInvoiceEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSVoucherEdit, DBGridEhGrouping, Menus, ActnList, DB, GridsEh,
  DBGridEh, RzTabs, RzPanel, RzButton, ExtCtrls, ComCtrls, ADODB;

type
  TfrmInvoiceEdit = class(TWSVoucherEditForm)
    qryInvoiceOrder: TADOQuery;
    qryInvoiceItem: TADOQuery;
  private
  protected
    procedure iniForm; override;
    { Private declarations }
  public
    
    { Public declarations }
  end;

var
  frmInvoiceEdit: TfrmInvoiceEdit;

implementation

     uses CommonDM;

{$R *.dfm}

{ TfrmInvoiceEdit }

procedure TfrmInvoiceEdit.iniForm;
begin
  inherited;
  qryInvoiceOrder.Connection:=CommonData.conn;
  qryInvoiceOrder.Open;
  qryInvoiceItem.Connection:=CommonData.conn;
  qryInvoiceItem.Open;
end;

end.
